home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / msdos / animutil / artform / volcano.wbj < prev    next >
Unknown  |  1992-10-03  |  1.8 KB
open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text

This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
100% file data default
100% TrID C64 Hires bitmap default (weak)


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00000010| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000020| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 00 |        |       .|
|00000030| 00 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00000040| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000050| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 00 |        |       .|
|00000060| 00 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00000070| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000080| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 00 |        |       .|
|00000090| 00 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|000000a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000000b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 00 |        |       .|
|000000c0| 01 00 02 00 02 00 02 00 | 56 4f 4c 43 41 4e 4f 00 |........|VOLCANO.|
|000000d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000000e0| 20 20 20 20 20 20 20 20 | 23 00 00 00 10 00 73 65 |        |#.....se|
|000000f0| 74 20 56 4f 4c 43 41 4e | 4f 20 3d 20 31 30 00 00 |t VOLCAN|O = 10..|
|00000100| 0f 00 66 6c 6f 61 74 20 | 41 5b 32 35 5d 5b 32 35 |..float |A[25][25|
|00000110| 5d 08 00 6c 75 73 74 65 | 72 20 31 09 00 63 6f 6c |]..luste|r 1..col|
|00000120| 6f 72 20 32 35 30 0f 00 | 66 6f 72 20 58 20 3d 20 |or 250..|for X = |
|00000130| 31 20 74 6f 20 32 33 13 | 00 20 20 20 20 66 6f 72 |1 to 23.|.    for|
|00000140| 20 59 20 3d 20 31 20 74 | 6f 20 32 33 0a 00 20 20 | Y = 1 t|o 23..  |
|00000150| 20 20 20 20 20 20 2f 2f | 1b 00 20 20 20 20 20 20 |      //|..      |
|00000160| 20 20 41 20 3d 20 28 58 | 2d 31 32 2e 35 29 2f 31 |  A = (X|-12.5)/1|
|00000170| 32 2e 35 2a e3 1b 00 20 | 20 20 20 20 20 20 20 42 |2.5*... |       B|
|00000180| 20 3d 20 28 59 2d 31 32 | 2e 35 29 2f 31 32 2e 35 | = (Y-12|.5)/12.5|
|00000190| 2a e3 14 00 20 20 20 20 | 20 20 20 20 43 20 3d 20 |*...    |    C = |
|000001a0| fb 28 41 fd 2b 42 fd 29 | 0a 00 20 20 20 20 20 20 |.(A.+B.)|..      |
|000001b0| 20 20 2f 2f 1a 00 20 20 | 20 20 20 20 20 20 69 66 |  //..  |      if|
|000001c0| 20 43 20 3e 20 e3 20 6c | 65 74 20 43 20 3d 20 e3 | C > . l|et C = .|
|000001d0| 29 00 20 20 20 20 20 20 | 20 20 48 20 3d 20 32 2a |).      |  H = 2*|
|000001e0| 28 31 2b 63 6f 73 20 43 | 29 20 2b 20 28 31 2d 63 |(1+cos C|) + (1-c|
|000001f0| 6f 73 20 28 43 2a 34 29 | 29 2f 32 3c 00 20 20 20 |os (C*4)|)/2<.   |
|00000200| 20 20 20 20 20 41 5b 58 | 5d 5b 59 5d 20 3d 20 28 |     A[X|][Y] = (|
|00000210| 31 2e 35 2a 48 20 2b 20 | 72 6e 64 20 2a 20 28 48 |1.5*H + |rnd * (H|
|00000220| 2a 31 2e 35 20 2b 20 31 | 29 29 20 2a 20 56 4f 4c |*1.5 + 1|)) * VOL|
|00000230| 43 41 4e 4f 20 2f 20 31 | 30 00 00 0f 00 66 6f 72 |CANO / 1|0....for|
|00000240| 20 58 20 3d 20 36 20 74 | 6f 20 31 32 13 00 20 20 | X = 6 t|o 12..  |
|00000250| 20 20 66 6f 72 20 59 20 | 3d 20 36 20 74 6f 20 31 |  for Y |= 6 to 1|
|00000260| 32 13 00 20 20 20 20 20 | 20 20 20 41 5b 58 5d 5b |2..     |   A[X][|
|00000270| 59 5d 20 3d 20 30 00 00 | 0f 00 66 6f 72 20 58 20 |Y] = 0..|..for X |
|00000280| 3d 20 30 20 74 6f 20 32 | 33 13 00 20 20 20 20 66 |= 0 to 2|3..    f|
|00000290| 6f 72 20 59 20 3d 20 30 | 20 74 6f 20 32 33 0a 00 |or Y = 0| to 23..|
|000002a0| 20 20 20 20 20 20 20 20 | 2f 2f 21 00 20 20 20 20 |        |//!.    |
|000002b0| 20 20 20 20 41 20 3d 20 | 28 58 2d 31 32 2e 35 29 |    A = |(X-12.5)|
|000002c0| 2f 31 36 20 2a 20 56 4f | 4c 43 41 4e 4f 21 00 20 |/16 * VO|LCANO!. |
|000002d0| 20 20 20 20 20 20 20 42 | 20 3d 20 28 59 2d 31 32 |       B| = (Y-12|
|000002e0| 2e 35 29 2f 31 36 20 2a | 20 56 4f 4c 43 41 4e 4f |.5)/16 *| VOLCANO|
|000002f0| 1a 00 20 20 20 20 20 20 | 20 20 44 20 3d 20 41 20 |..      |  D = A |
|00000300| 2b 20 56 4f 4c 43 41 4e | 4f 2f 31 36 1a 00 20 20 |+ VOLCAN|O/16..  |
|00000310| 20 20 20 20 20 20 45 20 | 3d 20 42 20 2b 20 56 4f |      E |= B + VO|
|00000320| 4c 43 41 4e 4f 2f 31 36 | 14 00 20 20 20 20 20 20 |LCANO/16|..      |
|00000330| 20 20 43 20 3d 20 fb 28 | 41 fd 2b 42 fd 29 0a 00 |  C = .(|A.+B.)..|
|00000340| 20 20 20 20 20 20 20 20 | 2f 2f 1b 00 20 20 20 20 |        |//..    |
|00000350| 20 20 20 20 69 66 20 43 | 20 3c 20 56 4f 4c 43 41 |    if C| < VOLCA|
|00000360| 4e 4f 20 2f 20 32 30 15 | 00 20 20 20 20 20 20 20 |NO / 20.|.       |
|00000370| 20 20 20 20 20 63 6f 6c | 6f 72 20 32 33 32 14 00 |     col|or 232..|
|00000380| 20 20 20 20 20 20 20 20 | 20 20 20 20 6c 75 73 74 |        |    lust|
|00000390| 65 72 20 30 0a 00 20 20 | 20 20 20 20 20 20 2f 2f |er 0..  |      //|
|000003a0| 4a 00 20 20 20 20 20 20 | 20 20 70 6f 6c 79 67 6f |J.      |  polygo|
|000003b0| 6e 20 41 2c 41 5b 58 5d | 5b 59 5d 2c 42 3a 20 44 |n A,A[X]|[Y],B: D|
|000003c0| 2c 41 5b 58 2b 31 5d 5b | 59 5d 2c 42 3a 20 44 2c |,A[X+1][|Y],B: D,|
|000003d0| 41 5b 58 2b 31 5d 5b 59 | 2b 31 5d 2c 45 3a 20 41 |A[X+1][Y|+1],E: A|
|000003e0| 2c 41 5b 58 5d 5b 59 2b | 31 5d 2c 45 09 00 71 75 |,A[X][Y+|1],E..qu|
|000003f0| 61 6c 69 74 79 20 34 07 | 00 63 6f 6d 70 69 6c 65 |ality 4.|.compile|
|00000400| 12 00 70 6f 73 69 74 69 | 6f 6e 20 2d 32 30 2c 35 |..positi|on -20,5|
|00000410| 2c 2d 36 30 0f 00 64 69 | 72 65 63 74 69 6f 6e 20 |,-60..di|rection |
|00000420| 30 2c 35 2c 30 0b 00 69 | 6e 74 65 6e 73 69 74 79 |0,5,0..i|ntensity|
|00000430| 20 31 12 00 6c 69 67 68 | 74 20 31 30 30 30 30 2c | 1..ligh|t 10000,|
|00000440| 31 30 30 30 2c 30 00 00 | 00 04 04 04 08 08 08 0c |1000,0..|........|
|00000450| 0c 0c 10 10 10 15 15 15 | 19 19 19 1d 1d 1d 21 21 |........|......!!|
|00000460| 21 25 25 25 2a 2a 2a 2e | 2e 2e 32 32 32 36 36 36 |!%%%***.|..222666|
|00000470| 3a 3a 3a 3f 3f 3f 05 00 | 00 0b 00 00 11 00 00 16 |:::???..|........|
|00000480| 00 00 1c 00 00 22 00 00 | 28 00 00 2d 00 00 33 00 |....."..|(..-..3.|
|00000490| 00 39 00 00 3f 00 00 3f | 0a 0a 3f 15 15 3f 1f 1f |.9..?..?|..?..?..|
|000004a0| 3f 2a 2a 3f 34 34 05 03 | 00 0b 06 00 11 09 00 16 |?**?44..|........|
|000004b0| 0c 00 1c 0f 00 22 12 00 | 28 15 00 2d 18 00 33 1b |....."..|(..-..3.|
|000004c0| 00 39 1e 00 3f 22 00 3f | 26 0a 3f 2b 15 3f 30 1f |.9..?".?|&.?+.?0.|
|000004d0| 3f 35 2a 3f 3a 34 05 05 | 00 0b 0a 00 11 0f 00 16 |?5*?:4..|........|
|000004e0| 14 00 1c 19 00 22 1e 00 | 28 23 00 2d 28 00 33 2d |....."..|(#.-(.3-|
|000004f0| 00 39 32 00 3f 37 00 3f | 38 0a 3f 39 15 3f 3b 1f |.92.?7.?|8.?9.?;.|
|00000500| 3f 3c 2a 3f 3d 34 00 05 | 00 00 0b 00 00 11 00 00 |?<*?=4..|........|
|00000510| 16 00 00 1c 00 00 22 00 | 00 28 00 00 2d 00 00 33 |......".|.(..-..3|
|00000520| 00 00 39 00 00 3f 00 0a | 3f 0a 15 3f 15 1f 3f 1f |..9..?..|?..?..?.|
|00000530| 2a 3f 2a 34 3f 34 00 04 | 05 00 08 0b 00 0d 11 00 |*?*4?4..|........|
|00000540| 11 16 00 15 1c 00 1a 22 | 00 1e 28 00 22 2d 00 27 |......."|..(."-.'|
|00000550| 33 00 2b 39 00 30 3f 0a | 32 3f 15 35 3f 1f 37 3f |3.+9.0?.|2?.5?.7?|
|00000560| 2a 3a 3f 34 3c 3f 00 01 | 05 00 02 0b 00 03 11 00 |*:?4<?..|........|
|00000570| 04 16 00 05 1c 00 06 22 | 00 07 28 00 08 2d 00 09 |......."|..(..-..|
|00000580| 33 00 0a 39 00 0c 3f 0a | 14 3f 15 1d 3f 1f 25 3f |3..9..?.|.?..?.%?|
|00000590| 2a 2e 3f 34 36 3f 05 00 | 03 05 00 03 04 00 03 03 |*.?46?..|........|
|000005a0| 00 02 03 00 02 02 00 01 | 01 00 01 00 00 00 28 0f |........|......(.|
|000005b0| 14 2d 0f 14 32 0f 14 37 | 0f 14 3f 19 00 3f 1e 00 |.-..2..7|..?..?..|
|000005c0| 3f 25 00 3f 2c 00 0f 0f | 00 12 10 01 15 12 02 19 |?%.?,...|........|
|000005d0| 14 04 1c 16 05 20 17 07 | 23 19 08 26 1b 09 2a 1d |..... ..|#..&..*.|
|000005e0| 0b 2d 1e 0c 31 20 0e 34 | 22 0f 36 21 0e 39 20 0d |.-..1 .4|".6!.9 .|
|000005f0| 3c 1f 0c 3f 1e 0a 00 0a | 00 04 0b 00 09 0d 00 0e |<..?....|........|
|00000600| 0e 00 13 10 00 18 11 00 | 1d 13 00 22 14 00 27 16 |........|..."..'.|
|00000610| 00 2c 17 00 31 19 00 36 | 1b 00 37 1b 00 38 1a 00 |.,..1..6|..7..8..|
|00000620| 39 19 00 3a 18 00 00 05 | 04 00 07 05 00 09 07 00 |9..:....|........|
|00000630| 0c 09 00 0e 0a 00 10 0c | 00 13 0e 00 15 10 00 17 |........|........|
|00000640| 11 00 1a 13 00 1c 15 00 | 1e 18 00 20 1c 00 23 20 |........|... ..# |
|00000650| 00 25 24 00 28 28 03 02 | 00 06 05 00 09 08 00 0f |.%$.((..|........|
|00000660| 0d 00 13 10 00 16 13 00 | 19 15 00 1f 1b 00 0c 0a |........|........|
|00000670| 00 0e 0c 00 10 0e 00 12 | 10 00 15 12 00 17 14 00 |........|........|
|00000680| 19 16 00 1c 18 00 0a 0a | 00 0c 0c 00 0f 0e 00 12 |........|........|
|00000690| 10 00 15 12 00 18 14 00 | 1b 16 00 1e 19 00 00 10 |........|........|
|000006a0| 00 00 10 00 00 11 00 00 | 12 00 00 13 00 00 14 00 |........|........|
|000006b0| 00 15 00 00 16 00 28 0f | 14 27 0f 14 25 0f 15 24 |......(.|.'..%..$|
|000006c0| 0f 15 22 10 16 21 10 16 | 1f 10 17 1d 11 18 1a 12 |.."..!..|........|
|000006d0| 19 16 13 1a 13 14 1c 0f | 15 1d 0b 16 1e 08 17 20 |........|....... |
|000006e0| 04 18 21 00 19 23 10 0a | 00 11 0d 00 12 10 00 13 |..!..#..|........|
|000006f0| 14 00 14 16 00 10 0b 00 | 11 0f 00 12 12 00 3c 00 |........|......<.|
|00000700| 00 3c 06 00 3c 0d 00 3d | 14 00 3d 1b 00 3e 22 00 |.<..<..=|..=..>".|
|00000710| 3e 29 00 3f 30 00 10 0a | 00 11 0a 00 12 0b 00 13 |>).?0...|........|
|00000720| 0b 00 14 0c 00 16 0c 00 | 17 0d 00 18 0d 00 19 0e |........|........|
|00000730| 00 1a 0e 00 1c 0f 00 1d | 0f 00 1e 10 00 1f 10 00 |........|........|
|00000740| 20 11 00 22 12 00       |                         | .."..  |        |
+--------+-------------------------+-------------------------+--------+--------+